      BLOCK DATA
C     ******************** BLOCK DATA 2 ********************************
      IMPLICIT REAL * 8 (A-H,O-Z)
C
C
C   MODIFICATION BY K.Y. TO SUPPLY THE STRING SHAPE FUNCTION
C   DATA SET
C
C     'BLOCK 2' DATA ARE THE COEFFICIENTS RESULTING FROM THE
C     INTEGRATION OF PRODUCTS AND MODE SHAPES FOR CANTILEVER BOOMS BY
C     THE INTEGRAL EVALUATION PROGRAM.
C
      COMMON/CCMBNZ/ CMRK(10),Z01(4),Z02(4),Z03(4),Z04(4),Z11(12),
     .               Z12(12),Z13(12),Z14(12),Z15(12),Z16(12),Z21(36),
     .               Z22(36),Z23(36),Z24(36),Z25(36),Z26(36),Z27(36),
     .               Z28(36),Z31(108),Z32(108),Z33(108),Z34(108),
     .               Z35(108),Z41(324),Z42(324),Z43(324),ZK21(18),
     .               ZK22(18),ZK23(18),ZK31(54),ZK32(54),ZK33(54),
     .               ZK34(54),ZK35(54),ZK36(54),ZK41(162),ZK42(162),
     .               ZK43(162),ZK44(162),ZK45(162),ZK46(162),ZK47(162),
     .               ZK48(162),ZS01(2),ZS02(2),ZS11(6),ZS12(6),ZS13(6),
     .               ZS21(18),ZS22(18),ZS23(18),ZS24(18),ZS31(54),
     .               ZS32(54),ZS41(162),ZT21(108),ZT22(108),STAO(18),
     .               STA1(18),STA2(18),STBO(18),STB1(18),STB2(18),
     .               Z2S01(2),Z2S12(6),Z2S23(18)
C
      DIMENSION Z31A(54),Z32A(54),Z33A(54),Z34A(54),Z35A(54),Z41A(64),
     .          Z41B(34),Z41C(64),Z41D(64),Z41E(34),Z42A(64),Z42B(34),
     .          Z42C(64),Z42D(64),Z42E(34),Z43A(64),Z43B(34),Z43C(64),
     .          Z43D(64),Z43E(34),ZK41A(17),ZK41B(64),ZK41C(17),
     .          ZK43A(17),ZK43B(64),ZK43C(17),ZK46A(17),ZK46B(64),
     .          ZK46C(17),ZK48A(17),ZK48B(64),ZK48C(17),ZS41A(17),
     .          ZS41B(64),ZS41C(17)
C
      EQUIVALENCE (Z31( 55),Z31A(1)),(Z32( 55),Z32A(1)),
     .            (Z33( 55),Z33A(1)),(Z34( 55),Z34A(1)),
     .            (Z35( 55),Z35A(1)),(Z41( 65),Z41A(1)),
     .            (Z41(129),Z41B(1)),(Z41(163),Z41C(1)),
     .            (Z41(227),Z41D(1)),(Z41(291),Z41E(1)),
     .            (Z42( 65),Z42A(1)),(Z42(129),Z42B(1)),
     .            (Z42(163),Z42C(1)),(Z42(227),Z42D(1)),
     .            (Z42(291),Z42E(1)),(Z43( 65),Z43A(1)),
     .            (Z43(129),Z43B(1)),(Z43(163),Z43C(1)),
     .            (Z43(227),Z43D(1)),(Z43(291),Z43E(1))
      EQUIVALENCE (ZK41( 65),ZK41A(1)),(ZK41( 82),ZK41B(1)),
     .            (ZK41(146),ZK41C(1)),(ZK43( 65),ZK43A(1)),
     .            (ZK43( 82),ZK43B(1)),(ZK43(146),ZK43C(1)),
     .            (ZK46( 65),ZK46A(1)),(ZK46( 82),ZK46B(1)),
     .            (ZK46(146),ZK46C(1)),(ZK48( 65),ZK48A(1)),
     .            (ZK48( 82),ZK48B(1)),(ZK48(146),ZK48C(1)),
     .            (ZS41( 65),ZS41A(1)),(ZS41( 82),ZS41B(1)),
     .            (ZS41(146),ZS41C(1))
C
C
      DATA CMRK / 10*0.D0 /
C
      DATA Z01 / 0.5D0,1.0D0,0.5D0,1.0D0 /
C
      DATA Z02 / 4*0.5D0 /
C
      DATA Z03 / 0.33333333D0,1.0D0,0.33333333D0,1.0D0 /
C
      DATA Z04 / 0.5D0,1.0D0,0.5D0,1.0D0 /
C
      DATA Z11  /
     . 0.40000000D 00,-0.23859649D 00, 0.13765510D 00,  3*0.1D1,
     .         0.49901021D+00,-0.19830055D+00, 0.64089188D-01,
     .  0.10000000D+01, 0.10000001D+01, 0.99999350D+00/
C
      DATA Z12 /
     . 3*0.1D1,0.13333333D 01, 0.45263158D1, 0.72369738D1,
     .         0.10000000D+01, 0.10000001D+01, 0.99999350D+00 ,
     .  0.10050973D+01, 0.63366071D+01, 0.16899160D+02/
C
      DATA Z13  /
     . 0.13333333D1, 0.45263158D1, 0.72369738D1,-0.2D-6,-0.12000032D-6,
     .-0.43999944D-5,
     .         0.11877517D-01, 0.82132104D+01, 0.14211358D+02,
     .  0.68288664D-02, 0.13587785D+02, 0.86893186D+02/
C
      DATA Z14  /
     . 0.28888889D 00,-0.45614034D-01, 0.14805957D-01, 3*0.1D1,
     .         0.33285246D+00,-0.37713939D-01,-0.39265958D-01,
     .  0.10000000D+01, 0.10000001D+01, 0.99999350D+00/
C
      DATA Z15  /
     . 0.60000000D 00, 0.12385965D 01, 0.86234490D 00, 0.13333333D 01,
     . 0.45263158D 01, 0.72369738D1,
     .         0.50098979D+00, 0.11983006D+01, 0.93590431D+00,
     .  0.10050973D+01, 0.63366071D+01, 0.16899160D+02/
C
      DATA Z16  /
     . 0.33333333D0, 0.35263158D1, 0.62369738D1,-0.2D-6,-0.12000032D-6,
     .-0.43999944D-5,
     .         0.50973168D-02, 0.53366071D+01, 0.15899167D+02,
     .  0.68288664D-02, 0.13587785D+02, 0.86893186D+02/
C
      DATA Z21  /
     . 0.25679013D0, 0.21406388D-9, 0.30696672D-7, 0.21406388D-9,
     . 0.28459666D0,-0.32637217D-8, 0.30696672D-7,-0.32637217D-8,
     .0.28704534D0, 9*0.1D1,
     .         0.33237277D+00,-0.37369548D-01,-0.39336669D-01,
     . -0.37369548D-01, 0.18645760D+00,-0.36119321D-01,-0.39336669D-01,
     . -0.36119321D-01, 0.20616551D+00, 0.10000000D+01, 0.10000001D+01,
     .  0.99999350D+00, 0.10000001D+01, 0.10000001D+01, 0.99999355D+00,
     .  0.99999350D+00, 0.99999355D+00, 0.99998700D+00/
C
      DATA Z22  /
     . 0.5D0, 0.12095517D1, 0.94455821D0,-0.20955166D0, 0.5D0,
     . 0.16567674D1, 0.55441789D-1,-0.65676735D0, 0.5D0, 0.13333333D1,
     . 0.45263158D1, 0.72369738D1, 0.13333333D1, 0.45263158D1,
     . 0.72369738D1,0.13333333D1, 0.45263158D1, 0.72369738D1,
     .         0.50000000D+00, 0.11976894D+01, 0.93676483D+00,
     . -0.19768936D+00, 0.50000005D+00, 0.15269154D+01, 0.63228666D-01,
     . -0.52692186D+00, 0.49999350D+00, 0.10050973D+01, 0.63366071D+01,
     .  0.16899160D+02, 0.10050974D+01, 0.63366075D+01, 0.16899161D+02,
     .  0.10050908D+01, 0.63365660D+01, 0.16899050D+02 /
C
      DATA Z23  /
     . 0.19047616D0,0.26992481D1, 0.63596896D1,-0.49373435D0,
     .-0.38107550D1, 0.22348779D1, 0.45604908D0,-0.47578009D0,
     .-0.13018039D2,-0.20000006D-6,-0.11999970D-6,-0.43999989D-5,
     .-0.20000039D-6,-0.11999055D-6,-0.44001645D-5,-0.20000061D-6,
     .-0.12006785D-6,-0.44018961D-5,
     .         0.50854189D-02, 0.53285341D+01, 0.15895551D+02,
     . -0.29756595D-02,-0.86187108D+00, 0.98669790D+01, 0.14812646D-02,
     . -0.69561617D+00,-0.71744634D+01, 0.68288664D-02, 0.13587785D+02,
     .  0.86893186D+02, 0.68288667D-02, 0.13587786D+02, 0.86893190D+02,
     .  0.68288220D-02, 0.13587697D+02, 0.86892621D+02 /
C
      DATA Z24  /
     . 0.4D0, 0.11617934D0,-0.32885325D0, 0.11617934D0, 0.25510619D1,
     .-0.73983104D0,-0.32885325D0,-0.73983104D0, 0.79633924D1,
     . 0.11428571D1, 0.18270677D1, 0.87728422D0, 0.18270677D1,
     . 0.83370707D1, 0.50020959D1, 0.87728422D0, 0.50020959D1,
     . 0.20255012D2,
     .         0.49802703D+00,-0.19554199D+00, 0.61560054D-01,
     . -0.19554199D+00, 0.14776115D+01,-0.67399252D+00, 0.61560054D-01,
     . -0.67399252D+00, 0.39786671D+01, 0.10000119D+01, 0.10080730D+01,
     .  0.10036095D+01, 0.10080730D+01, 0.71984785D+01, 0.70321821D+01,
     .  0.10036095D+01, 0.70321821D+01, 0.24073514D+02 /
C
      DATA Z25  /
     . 0.11428571D1, 0.18270677D1, 0.87728422D0, 0.18270677D1,
     . 0.83370707D1, 0.50020959D1, 0.87728422D0, 0.50020959D1,
     . 0.20255012D2, 0.17777777D1, 0.60350875D1, 0.96492982D1,
     . 0.60350875D1, 0.20487534D2, 0.32756829D2, 0.96492982D1,
     . 0.32756829D2, 0.52373790D2,
     .         0.10000119D+01, 0.10080730D+01, 0.10036095D+01,
     .  0.10080730D+01, 0.71984785D+01, 0.70321821D+01, 0.10036095D+01,
     .  0.70321821D+01, 0.24073514D+02, 0.10102206D+01, 0.63689068D+01,
     .  0.16985301D+02, 0.63689068D+01, 0.40152590D+02, 0.10708334D+03,
     .  0.16985301D+02, 0.10708334D+03, 0.28558162D+03 /
C
      DATA Z26  /
     . 0.17777777D1, 0.60350875D1, 0.96492982D1, 0.60350875D1,
     . 0.20487534D2, 0.32756829D2, 0.96492982D1, 0.32756829D2,
     . 0.52373790D2,-0.53333342D-6,-0.10652684D-5,-0.73141855D-5,
     .-.10652684D-5,-0.10861841D-5,-0.20784326D-4,-0.73141855D-5,
     .-0.20784326D-4,-0.63650310D-4,
     .         0.23735046D-01, 0.82327864D+01, 0.14315722D+02,
     .  0.82327864D+01, 0.36630950D+02, 0.11212728D+03, 0.14315722D+02,
     .  0.11212728D+03, 0.27835734D+03, 0.13727351D-01, 0.13700318D+02,
     .  0.87451510D+02, 0.13700318D+02, 0.17220091D+03, 0.78023014D+03,
     .  0.87451510D+02, 0.78023014D+03, 0.29368437D+04 /
C
      DATA Z27  /
     . 0.30123457D0, 0.18635478D0,-0.23121422D0, 0.18635478D0,
     . 0.18486359D1,-0.15921988D0,-0.23121422D0,-0.15921988D0,
     . 0.54122640D1, 0.11428571D1, 0.18270677D1, 0.87728422D0,
     . 0.18270677D1, 0.83370707D1, 0.50020959D1, 0.87728422D0,
     . 0.50020959D1, 0.20255012D2,
     .         0.33237549D+00,-0.35915898D-01,-0.40561927D-01,
     . -0.35915898D-01, 0.10976055D+01,-0.24961539D+00,-0.40561927D-01,
     . -0.24961539D+00, 0.29571842D+01, 0.10000119D+01, 0.10080730D+01,
     .  0.10036095D+01, 0.10080730D+01, 0.71984785D+01, 0.70321821D+01,
     .  0.10036095D+01, 0.70321821D+01, 0.24073514D+02  /
C
      DATA Z28  /
     . 0.74285714D0, 0.17108883D1, 0.12061375D1, 0.17108883D1,
     . 0.57860089D1, 0.57419269D1, 0.12061375D1, 0.57419269D1,
     . 0.12291620D2, 0.17777777D1, 0.60350875D1, 0.96492982D1,
     . 0.60350875D1, 0.20487534D2, 0.32756829D2, 0.96492982D1,
     . 0.32756829D2, 0.52373790D2,
     .         0.50198487D+00, 0.12036150D+01, 0.94204947D+00,
     .  0.12036150D+01, 0.57208671D+01, 0.77061746D+01, 0.94204947D+00,
     .  0.77061746D+01, 0.20094847D+02, 0.10102206D+01, 0.63689068D+01,
     .  0.16985301D+02, 0.63689068D+01, 0.40152590D+02, 0.10708334D+03,
     .  0.16985301D+02, 0.10708334D+03, 0.28558162D+03 /
C
      DATA Z31  /
     . 0.27160494D 00, 0.20090968D 00,-0.19401553D 00, 0.20090968D 00,
     . 0.16565992D 01,-0.25150693D-01,-0.19401553D 00,-0.25150693D-01,
     . 0.47277204D 01, 0.26250812D-01, 0.26246211D 00, 0.15656370D 00,
     . 0.26246211D 00, 0.18657313D 00, 0.83288830D 00, 0.15656370D 00,
     . 0.83288830D 00,-0.45280476D 00,-0.21494645D-02, 0.42658463D-01,
     . 0.26538080D 00, 0.42658463D-01, 0.32366017D 00, 0.20335797D 00,
     . 0.26538080D 00, 0.20335797D 00, 0.37034088D 00, 0.11428571D 01,
     . 0.18270677D 01, 0.87728422D 00, 0.18270677D 01, 0.83370707D 01,
     . 0.50020959D 01, 0.87728422D 00, 0.50020959D 01, 0.20255012D 02,
     . 0.11428571D 01, 0.18270677D 01, 0.87728422D 00, 0.18270677D 01,
     . 0.83370707D 01, 0.50020959D 01, 0.87728422D 00, 0.50020959D 01,
     . 0.20255012D 02, 0.11428571D 01, 0.18270677D 01, 0.87728422D 00,
     . 0.18270677D 01, 0.83370707D 01, 0.50020958D 01, 0.87728422D 00,
     . 0.50020958D 01, 0.20255013D 02, 54*0.D0 /
      DATA Z31A  /
     .         0.33189697D+00,-0.35573966D-01,-0.40629731D-01,
     . -0.35573966D-01, 0.10965203D+01,-0.24857248D+00,-0.40629731D-01,
     . -0.24857248D+00, 0.29541239D+01,-0.37026017D-01, 0.18640593D+00,
     . -0.35313569D-01, 0.18640593D+00, 0.23676955D+00, 0.51116977D+00,
     . -0.35313569D-01, 0.51116977D+00, 0.51117527D+00,-0.39407176D-01,
     . -0.36066694D-01, 0.20634308D+00,-0.36066694D-01, 0.24408296D-01,
     .  0.28266086D+00, 0.20634308D+00, 0.28266086D+00,-0.22167744D-01,
     .  0.10000119D+01, 0.10080730D+01, 0.10036095D+01, 0.10080730D+01,
     .  0.71984785D+01, 0.70321821D+01, 0.10036095D+01, 0.70321821D+01,
     .  0.24073514D+02, 0.10000119D+01, 0.10080731D+01, 0.10036096D+01,
     .  0.10080731D+01, 0.71984789D+01, 0.70321825D+01, 0.10036096D+01,
     .  0.70321825D+01, 0.24073515D+02, 0.10000054D+01, 0.10080665D+01,
     .  0.10036030D+01, 0.10080665D+01, 0.71984318D+01, 0.70321364D+01,
     .  0.10036030D+01, 0.70321364D+01, 0.24073357D+02/
C
      DATA Z32  /
     . 0.63376623D 00, 0.16200737D 01, 0.13254092D 01, 0.16200737D 01,
     . 0.51938118D 01, 0.56580167D 01, 0.13254092D 01, 0.56580167D 01,
     . 0.10637949D 02,-0.18759357D 00, 0.52304124D 00, 0.20768614D 01,
     . 0.52304124D 00, 0.88993692D 00, 0.39007224D 01, 0.20768614D 01,
     . 0.39007224D 01,-0.27036859D 00,-0.47932068D-02,-0.54780076D 00,
     . 0.47108430D 00,-0.54780076D 00, 0.87861884D 00, 0.13495872D 01,
     . 0.47108430D 00, 0.13495872D 01, 0.49404699D 01, 0.17777777D 01,
     . 0.60350875D 01, 0.96492982D 01, 0.60350875D 01, 0.20487534D 02,
     . 0.32756829D 02, 0.96492982D 01, 0.32756829D 02, 0.52373790D 02,
     . 0.17777777D 01, 0.60350875D 01, 0.96492982D 01, 0.60350875D 01,
     . 0.20487534D 02, 0.32756829D 02, 0.96492982D 01, 0.32756829D 02,
     . 0.52373789D 02, 0.17777777D 01, 0.60350875D 01, 0.96492982D 01,
     . 0.60350875D 01, 0.20487534D 02, 0.32756829D 02, 0.96492982D 01,
     . 0.32756829D 02, 0.52373773D 02, 54*0.D0 /
      DATA Z32A  /
     .         0.50099507D+00, 0.12029990D+01, 0.94291072D+00,
     .  0.12029990D+01, 0.57168895D+01, 0.77054649D+01, 0.94291072D+00,
     .  0.77054649D+01, 0.20083988D+02,-0.19707779D+00, 0.50153432D+00,
     .  0.15327961D+01, 0.50153432D+00, 0.22919912D+01, 0.65066891D+01,
     .  0.15327961D+01, 0.65066891D+01, 0.11047310D+02, 0.62369075D-01,
     . -0.52697390D+00, 0.50139483D+00,-0.52697390D+00,-0.30334576D+00,
     .  0.22165446D+01, 0.50139483D+00, 0.22165446D+01, 0.61679583D+01,
     .  0.10102206D+01, 0.63689068D+01, 0.16985301D+02, 0.63689068D+01,
     .  0.40152590D+02, 0.10708334D+03, 0.16985301D+02, 0.10708334D+03,
     .  0.28558162D+03, 0.10102207D+01, 0.63689072D+01, 0.16985302D+02,
     .  0.63689072D+01, 0.40152592D+02, 0.10708335D+03, 0.16985302D+02,
     .  0.10708335D+03, 0.28558163D+03, 0.10102141D+01, 0.63688654D+01,
     .  0.16985190D+02, 0.63688654D+01, 0.40152329D+02, 0.10708264D+03,
     .  0.16985190D+02, 0.10708264D+03, 0.28557976D+03/
C
      DATA Z33  /
     . 0.50909091D 00, 0.20699391D 00,-0.44812494D 00, 0.20699391D 00,
     . 0.31432590D 01,-0.65592087D 00,-0.44812494D 00,-0.65592087D 00,
     . 0.96170638D 01, 0.13304507D 01, 0.13040264D 01,-0.11995772D 01,
     . 0.13040264D 01, 0.74471338D 01, 0.11013734D 01,-0.11995772D 01,
     . 0.11013734D 01, 0.20525381D 02, 0.11476503D 01, 0.23748684D 01,
     . 0.40619992D 00, 0.23748684D 01, 0.74584519D 01, 0.36525087D 01,
     . 0.40619992D 00, 0.36525087D 01, 0.15314541D 02, 0.15238095D 01,
     . 0.24360901D 01, 0.11697123D 01, 0.24360901D 01, 0.11116094D 02,
     . 0.66694610D 01, 0.11697123D 01, 0.66694610D 01, 0.27006683D 02,
     . 0.51729323D 01, 0.82698851D 01, 0.39708654D 01, 0.82698851D 01,
     . 0.37736215D 02, 0.22641065D 02, 0.39708654D 01, 0.22641065D 02,
     . 0.91680582D 02, 0.82708272D 01, 0.13222441D 02, 0.63488829D 01,
     . 0.13222441D 02, 0.60335162D 02, 0.36200036D 02, 0.63488829D 01,
     . 0.36200036D 02, 0.14658499D 03, 54*0.D0 /
      DATA Z33A  /
     .         0.49901683D+00,-0.19492601D+00, 0.60698796D-01,
     . -0.19492601D+00, 0.14815891D+01,-0.67328281D+00, 0.60698796D-01,
     . -0.67328281D+00, 0.39895255D+01, 0.11970897D+01, 0.50653875D+00,
     . -0.52918654D+00, 0.50653875D+00, 0.49064877D+01, 0.52549336D+00,
     . -0.52918654D+00, 0.52549336D+00, 0.13026205D+02, 0.93763632D+00,
     .  0.15350404D+01, 0.50220816D+00, 0.15350404D+01, 0.75017775D+01,
     .  0.48155918D+01, 0.50220816D+00, 0.48155918D+01, 0.17905399D+02,
     .  0.10051093D+01, 0.10132115D+01, 0.10087252D+01, 0.10132115D+01,
     .  0.72351715D+01, 0.70680274D+01, 0.10087252D+01, 0.70680274D+01,
     .  0.24196224D+02, 0.63366825D+01, 0.63877627D+01, 0.63594792D+01,
     .  0.63877627D+01, 0.45613931D+02, 0.44560175D+02, 0.63594792D+01,
     .  0.44560175D+02, 0.15254440D+03, 0.16899361D+02, 0.17035588D+02,
     .  0.16960158D+02, 0.17035588D+02, 0.12164824D+03, 0.11883797D+03,
     .  0.16960158D+02, 0.11883797D+03, 0.40682217D+03/
      DATA Z34  /
     . 0.40634912D 00, 0.33698791D 01, 0.84089799D 01, 0.33698791D 01,
     . 0.10693927D 02, 0.24622915D 02, 0.84089799D 01, 0.24622915D 02,
     . 0.30410419D 02,-0.88743075D 00,-0.37585203D 01, 0.15153841D 01,
     .-0.37585203D 01,-0.23471412D 01, 0.30218410D-01, 0.15153841D 01,
     . 0.30218410D-01, 0.15176907D 02, 0.53745944D 00,-0.20988265D 01,
     .-0.12314072D 02,-0.20988265D 01,-0.12239076D 02,-0.44400536D 01,
     .-0.12314072D 02,-0.44400536D 01, 0.52414249D 01,-0.53333352D-06,
     .-0.10652689D-05,-0.73140563D-05,-0.10652689D-05,-0.10865042D-05,
     .-0.20791544D-04,-0.73140563D-05,-0.20791544D-04,-0.63672662D-04,
     .-0.53332866D-06,-0.10656368D-05,-0.73106057D-05,-0.10656368D-05,
     .-0.11359807D-05,-0.21401793D-04,-0.73106057D-05,-0.21401793D-04,
     .-0.70631504D-04,-0.53303120D-06,-0.10647054D-05,-0.73460396D-05,
     .-0.10647054D-05,-0.10542572D-05,-0.18894672D-04,-0.73460396D-05,
     .-0.18894672D-04,-0.94413757D-04, 54*0.D0 /
      DATA Z34A  /
     .         0.10184934D-01, 0.53527482D+01, 0.15978027D+02,
     .  0.53527482D+01, 0.32931346D+02, 0.10000642D+03, 0.15978027D+02,
     .  0.10000642D+03, 0.26142288D+03,-0.59379503D-02,-0.85233687D+00,
     .  0.99083865D+01,-0.85233687D+00, 0.11449630D+02, 0.57605032D+02,
     .  0.99083865D+01, 0.57605032D+02, 0.17888544D+03, 0.29403569D-02,
     . -0.70804962D+00,-0.71735499D+01,-0.70804962D+00,-0.93259841D+01,
     .  0.38645322D+00,-0.71735499D+01, 0.38645322D+00, 0.63490517D+02,
     .  0.13727351D-01, 0.13700318D+02, 0.87451510D+02, 0.13700318D+02,
     .  0.17220091D+03, 0.78023014D+03, 0.87451510D+02, 0.78023014D+03,
     .  0.29368437D+04, 0.13727351D-01, 0.13700319D+02, 0.87451514D+02,
     .  0.13700319D+02, 0.17220092D+03, 0.78023018D+03, 0.87451514D+02,
     .  0.78023018D+03, 0.29368439D+04, 0.13727261D-01, 0.13700229D+02,
     .  0.87450941D+02, 0.13700229D+02, 0.17219979D+03, 0.78022507D+03,
     .  0.87450941D+02, 0.78022507D+03, 0.29368247D+04/
C
      DATA Z35  /
     . 0.15238092D 00,-0.22911829D 00,-0.70605982D-01,-0.22911829D 00,
     . 0.13224862D 01,-0.14644531D 01,-0.70605982D-01,-0.14644531D 01,
     . 0.50433119D 01, 0.25077239D 01,-0.15237227D 01,-0.41630486D 01,
     .-0.15237227D 01, 0.14901539D 02,-0.10085545D 02,-0.41630486D 01,
     .-0.10085545D 02, 0.54483699D 02, 0.70305089D 01, 0.50885267D 01,
     .-0.15614488D 02, 0.50885267D 01, 0.27608552D 02,-0.99684603D 00,
     .-0.15614488D 02,-0.99684603D 00, 0.99452643D 02,-0.22857138D-06,
     .-0.36541314D-06,-0.17545426D-06,-0.36541314D-06,-0.16673248D-05,
     .-0.10009971D-05,-0.17545426D-06,-0.10009971D-05,-0.40514860D-05,
     .-0.13715311D-06,-0.21913729D-06,-0.10521035D-06,-0.21913729D-06,
     .-0.10095828D-05,-0.64028427D-06,-0.10521035D-06,-0.64028427D-06,
     .-0.12665987D-05,-0.50285644D-05,-0.80382597D-05,-0.38386788D-05,
     .-0.80382597D-05,-0.36649173D-04,-0.22783875D-04,-0.38386788D-05,
     .-0.22783875D-04,-0.63300133D-04, 54*0.D0 /
      DATA Z35A  /
     .         0.50735936D-02,-0.29471229D-02, 0.14515418D-02,
     . -0.29471229D-02, 0.13927446D-01,-0.88876688D-02, 0.14515418D-02,
     . -0.88876688D-02, 0.37484008D-01, 0.53205239D+01,-0.83348128D+00,
     . -0.71743581D+00,-0.83348128D+00, 0.16910968D+02,-0.49181376D+01,
     . -0.71743581D+00,-0.49181376D+01, 0.45848209D+02, 0.15892088D+02,
     .  0.99586726D+01,-0.71985820D+01, 0.99586726D+01, 0.72169930D+02,
     .  0.12141782D+02,-0.71985820D+01, 0.12141782D+02, 0.18473292D+03,
     .  0.68289477D-02, 0.68839960D-02, 0.68535153D-02, 0.68839960D-02,
     .  0.49157448D-01, 0.48021832D-01, 0.68535153D-02, 0.48021832D-01,
     .  0.16439481D+00, 0.13587947D+02, 0.13697480D+02, 0.13636830D+02,
     .  0.13697480D+02, 0.97811379D+02, 0.95551779D+02, 0.13636830D+02,
     .  0.95551779D+02, 0.32710573D+03, 0.86894220D+02, 0.87594677D+02,
     .  0.87206828D+02, 0.87594677D+02, 0.62549873D+03, 0.61104871D+03,
     .  0.87206828D+02, 0.61104871D+03, 0.20918243D+04/
C
      DATA Z41  /
     . 0.28971194D 00, 0.23638726D 00,-0.19273282D 00, 0.23638726D 00,
     . 0.17669802D 01, 0.48851313D-01,-0.19273282D 00, 0.48851313D-01,
     . 0.49559860D 01, 0.23638726D 00, 0.40579129D 00, 0.30486499D-01,
     . 0.40579129D 00, 0.15146569D 01, 0.76835497D 00, 0.30486499D-01,
     . 0.76835497D 00, 0.33338064D 01,-0.19273282D 00, 0.30486499D-01,
     . 0.48952141D 00, 0.30486499D-01,-0.83726833D 00, 0.73660058D 00,
     . 0.48952141D 00, 0.73660058D 00,-0.34743668D 01, 0.23638726D 00,
     . 0.40579129D 00, 0.30486499D-01, 0.40579129D 00, 0.15146569D 01,
     . 0.76835497D 00, 0.30486499D-01, 0.76835497D 00, 0.33338064D 01,
     . 0.17669802D 01, 0.15146569D 01,-0.83726833D 00, 0.15146569D 01,
     . 0.11188953D 02, 0.68122626D 00,-0.83726833D 00, 0.68122626D 00,
     . 0.30596486D 02, 0.48851313D-01, 0.76835497D 00, 0.73660058D 00,
     . 0.76835497D 00, 0.68122626D 00, 0.31246407D 01, 0.73660058D 00,
     . 0.31246407D 01,-0.12607612D 01,-0.19273282D 00, 0.30486499D-01,
     . 0.48952141D 00, 0.30486499D-01,-0.83726833D 00, 0.73660058D 00,
     . 0.48952141D 00, 0.73660058D 00,-0.34743668D 01, 0.48851313D-01,  
     . 260*0.D0 /
      DATA Z41A  /
     . 0.76835497D 00, 0.73660058D 00, 0.76835497D 00, 0.68122626D 00,
     . 0.31246407D 01, 0.73660058D 00, 0.31246407D 01,-0.12607612D 01,
     . 0.49559860D 01, 0.33338065D 01,-0.34743668D 01, 0.33338065D 01,
     . 0.30596486D 02,-0.12607612D 01,-0.34743668D 01,-0.12607612D 01,
     . 0.89097934D 02, 0.13061224D 01, 0.20880773D 01, 0.10026105D 01,
     . 0.20880773D 01, 0.95280808D 01, 0.57166810D 01, 0.10026105D 01,
     . 0.57166810D 01, 0.23148586D 02, 0.20880773D 01, 0.33381762D 01,
     . 0.16028576D 01, 0.33381762D 01, 0.15232392D 02, 0.91391675D 01,
     . 0.16028576D 01, 0.91391675D 01, 0.37007278D 02, 0.10026105D 01,
     . 0.16028576D 01, 0.76962757D 00, 0.16028576D 01, 0.73139806D 01,
     . 0.43882601D 01, 0.76962757D 00, 0.43882601D 01, 0.17769411D 02,
     . 0.20880773D 01, 0.33381762D 01, 0.16028576D 01, 0.33381762D 01,
     . 0.15232392D 02, 0.91391675D 01, 0.16028576D 01, 0.91391675D 01,
     . 0.37007278D 02, 0.95280808D 01, 0.15232392D 02, 0.73139806D 01,
     . 0.15232392D 02, 0.69506748D 02, 0.41702827D 02, 0.73139806D 01,
     . 0.41702827D 02, 0.16886744D 03, 0.57166810D 01, 0.91391675D 01  /
      DATA Z41B  /
     . 0.43882601D 01, 0.91391675D 01, 0.41702827D 02, 0.25020966D 02,
     . 0.43882601D 01, 0.25020966D 02, 0.10131687D 03, 0.10026105D 01,
     . 0.16028576D 01, 0.76962757D 00, 0.16028576D 01, 0.73139806D 01,
     . 0.43882601D 01, 0.76962757D 00, 0.43882601D 01, 0.17769411D 02,
     . 0.57166810D 01, 0.91391675D 01, 0.43882601D 01, 0.91391675D 01,
     . 0.41702827D 02, 0.25020966D 02, 0.43882601D 01, 0.25020966D 02,
     . 0.10131687D 03, 0.23148586D 02, 0.37007278D 02, 0.17769411D 02,
     . 0.37007278D 02, 0.16886744D 03, 0.10131687D 03, 0.17769411D 02,
     . 0.10131687D 03, 0.41027065D 03  /
      DATA Z41C  /
     .         0.00000000D+00,-0.35232872D-01,-0.40697346D-01,
     . -0.35232872D-01, 0.10954478D+01,-0.24753291D+00,-0.40697346D-01,
     . -0.24753291D+00, 0.29510976D+01,-0.35232872D-01, 0.18636458D+00,
     . -0.35267253D-01, 0.18636458D+00, 0.24335325D+00, 0.51068701D+00,
     . -0.35267253D-01, 0.51068701D+00, 0.52853796D+00,-0.40697346D-01,
     . -0.35267253D-01, 0.20652889D+00,-0.35267253D-01, 0.21657467D-01,
     .  0.28620467D+00, 0.20652889D+00, 0.28620467D+00,-0.29572892D-01,
     . -0.35232872D-01, 0.18636458D+00,-0.35267253D-01, 0.18636458D+00,
     .  0.24335325D+00, 0.51068701D+00,-0.35267253D-01, 0.51068701D+00,
     .  0.52853796D+00, 0.10954478D+01, 0.24335325D+00, 0.21657467D-01,
     .  0.24335325D+00, 0.46139834D+01, 0.57579958D+00, 0.21657467D-01,
     .  0.57579958D+00, 0.12045153D+02,-0.24753291D+00, 0.51068701D+00,
     .  0.28620467D+00, 0.51068701D+00, 0.57579958D+00, 0.25504690D+01,
     .  0.28620467D+00, 0.25504690D+01, 0.15800418D+01,-0.40697346D-01,
     . -0.35267253D-01, 0.20652889D+00,-0.35267253D-01, 0.21657467D-01,
     .  0.28620467D+00, 0.20652889D+00, 0.28620467D+00,-0.29572891D-01,
     . -0.24753291D+00/
      DATA Z41D  /
     .                  0.51068701D+00, 0.28620467D+00, 0.51068701D+00,
     .  0.57579958D+00, 0.25504690D+01, 0.28620467D+00, 0.25504690D+01,
     .  0.15800418D+01, 0.29510976D+01, 0.52853796D+00,-0.29572891D-01,
     .  0.52853796D+00, 0.12045153D+02, 0.15800418D+01,-0.29572891D-01,
     .  0.15800418D+01, 0.33043105D+02, 0.10000238D+01, 0.10080850D+01,
     .  0.10036215D+01, 0.10080850D+01, 0.71985642D+01, 0.70322658D+01,
     .  0.10036215D+01, 0.70322658D+01, 0.24073800D+02, 0.10080850D+01,
     .  0.10162112D+01, 0.10117117D+01, 0.10162112D+01, 0.72565921D+01,
     .  0.70889531D+01, 0.10117117D+01, 0.70889531D+01, 0.24267860D+02,
     .  0.10036215D+01, 0.10117117D+01, 0.10072321D+01, 0.10117117D+01,
     .  0.72244616D+01, 0.70575649D+01, 0.10072321D+01, 0.70575649D+01,
     .  0.24160408D+02, 0.10080850D+01, 0.10162112D+01, 0.10117117D+01,
     .  0.10162112D+01, 0.72565921D+01, 0.70889531D+01, 0.10117117D+01,
     .  0.70889531D+01, 0.24267860D+02, 0.71985642D+01, 0.72565921D+01,
     .  0.72244616D+01, 0.72565921D+01, 0.51818093D+02, 0.50621012D+02,
     .  0.72244616D+01, 0.50621012D+02, 0.17329267D+03, 0.70322658D+01,
     .  0.70889531D+01/
      DATA Z41E  /
     .                  0.70575649D+01, 0.70889531D+01, 0.50621012D+02,
     .  0.49451585D+02, 0.70575649D+01, 0.49451585D+02, 0.16928933D+03,
     .  0.10036215D+01, 0.10117117D+01, 0.10072321D+01, 0.10117117D+01,
     .  0.72244616D+01, 0.70575649D+01, 0.10072321D+01, 0.70575649D+01,
     .  0.24160408D+02, 0.70322658D+01, 0.70889531D+01, 0.70575649D+01,
     . 0.70889531D+01 ,0.50621012D+02 ,0.49451585D+02 ,0.70575649D+01 ,
     .  0.49451585D+02, 0.16928933D+03, 0.24073800D+02, 0.24267860D+02,
     .  0.24160408D+02, 0.24267860D+02, 0.17329267D+03, 0.16928933D+03,
     .  0.24160408D+02, 0.16928933D+03, 0.57953408D+03/
C
      DATA Z42  /
     . 0.65306122D 00, 0.17658769D 01, 0.15895182D 01, 0.17658769D 01,
     . 0.55683283D 01, 0.63345454D 01, 0.15895182D 01, 0.63345454D 01,
     . 0.11190531D 02, 0.32220039D 00, 0.16690881D 01, 0.30494787D 01,
     . 0.16690881D 01, 0.50587567D 01, 0.81896220D 01, 0.30494787D 01,
     . 0.81896220D 01, 0.87574493D 01,-0.58690763D 00,-0.14466210D 01,
     . 0.38481381D 00,-0.14466210D 01,-0.29385514D 01,-0.53806637D 00,
     . 0.38481381D 00,-0.53806637D 00,-0.33391138D 01, 0.32220039D 00,
     . 0.16690881D 01, 0.30494787D 01, 0.16690881D 01, 0.50587567D 01,
     . 0.81896220D 01, 0.30494787D 01, 0.81896220D 01, 0.87574493D 01,
     . 0.39597525D 01, 0.10173636D 02, 0.10252532D 02, 0.10173636D 02,
     . 0.34753374D 02, 0.41114759D 02, 0.10252532D 02, 0.41114759D 02,
     . 0.74143403D 02,-0.61786443D 00, 0.94954551D 00, 0.49263270D 01,
     . 0.94954551D 00, 0.58806763D 00, 0.12510484D 02, 0.49263270D 01,
     . 0.12510484D 02, 0.58544756D 01,-0.58690763D 00,-0.14466210D 01,
     . 0.38481381D 00,-0.14466210D 01,-0.29385514D 01,-0.53806637D 00,
     . 0.38481381D 00,-0.53806637D 00,-0.33391138D 01,-0.61786443D 00,
     . 260*0.D0 /
      DATA Z42A  /
     . 0.94954551D 00, 0.49263270D 01, 0.94954551D 00, 0.58806763D 00,
     . 0.12510484D 02, 0.49263270D 01, 0.12510484D 02, 0.58544756D 01,
     . 0.11958054D 02, 0.28249828D 02, 0.21108529D 02, 0.28249828D 02,
     . 0.94724057D 02, 0.95462857D 02, 0.21108529D 02, 0.95462857D 02,
     . 0.20513268D 03, 0.20317459D 01, 0.68972429D 01, 0.11027769D 02,
     . 0.68972429D 01, 0.23414325D 02, 0.37436376D 02, 0.11027769D 02,
     . 0.37436376D 02, 0.59855760D 02, 0.32481201D 01, 0.11026513D 02,
     . 0.17629921D 02, 0.11026513D 02, 0.37432112D 02, 0.59848941D 02,
     . 0.17629921D 02, 0.59848941D 02, 0.95690451D 02, 0.15596163D 01,
     . 0.52944871D 01, 0.84651769D 01, 0.52944871D 01, 0.17973391D 02,
     . 0.28737048D 02, 0.84651769D 01, 0.28737048D 02, 0.45946663D 02,
     . 0.32481201D 01, 0.11026513D 02, 0.17629921D 02, 0.11026513D 02,
     . 0.37432112D 02, 0.59848941D 02, 0.17629921D 02, 0.59848941D 02,
     . 0.95690451D 02, 0.14821458D 02, 0.50314952D 02, 0.80446881D 02,
     . 0.50314952D 02, 0.17080602D 03, 0.27309598D 03, 0.80446881D 02,
     . 0.27309598D 03, 0.43664384D 03, 0.88926144D 01, 0.30188086D 02  /
      DATA Z42B  /
     . 0.48266715D 02, 0.30188086D 02, 0.10248060D 03, 0.16385254D 03,
     . 0.48266715D 02, 0.16385254D 03, 0.26198117D 03, 0.15596163D 01,
     . 0.52944871D 01, 0.84651769D 01, 0.52944871D 01, 0.17973391D 02,
     . 0.28737048D 02, 0.84651769D 01, 0.28737048D 02, 0.45946663D 02,
     . 0.88926144D 01, 0.30188086D 02, 0.48266715D 02, 0.30188086D 02,
     . 0.10248060D 03, 0.16385254D 03, 0.48266715D 02, 0.16385254D 03,
     . 0.26198117D 03, 0.36008909D 02, 0.12224077D 03, 0.19544666D 03,
     . 0.12224077D 03, 0.41497501D 03, 0.66349193D 03, 0.19544666D 03,
     . 0.66349193D 03, 0.10607789D 04  /
      DATA Z42C  /
     .         0.53558652D+00, 0.12688711D+01,-0.42476821D+01,
     .  0.12688711D+01, 0.53826379D+01 ,0.18421259D+02,-0.42476821D+01,
     .  0.18421259D+02,-0.20607912D+01,-0.12898257D+00, 0.23449984D+00,
     .  0.10801530D+02, 0.23449984D+00, 0.30519338D+01,-0.12207302D+02,
     .  0.10801530D+02,-0.12207302D+02, 0.50960844D+02, 0.16430964D+02,
     . -0.31845376D+02, 0.30264979D+02,-0.31845376D+02, 0.59651658D+02,
     . -0.54237081D+02, 0.30264979D+02,-0.54237081D+02, 0.56629937D+02,
     . -0.12898257D+00, 0.23449984D+00, 0.10801530D+02, 0.23449984D+00,
     .  0.30519338D+01,-0.12207302D+02, 0.10801530D+02,-0.12207302D+02,
     .  0.50960844D+02, 0.15697483D+01, 0.75064960D+01,-0.11287224D+03,
     .  0.75064960D+01, 0.16937398D+02, 0.29286474D+03,-0.11287224D+03,
     .  0.29286474D+03,-0.40696229D+03, 0.74297940D+02,-0.14838052D+03,
     .  0.27741792D+03,-0.14838052D+03, 0.29882475D+03,-0.52214908D+03,
     .  0.27741792D+03,-0.52214908D+03, 0.83947826D+03, 0.16430964D+02,
     . -0.31845376D+02, 0.30264979D+02,-0.31845376D+02, 0.59651658D+02 ,
     . -0.54237081D+02, 0.30264979D+02,-0.54237081D+02 ,0.56629937D+02,
     .  0.74297940D+02/
      DATA Z42D  /
     .                 -0.14838052D+03, 0.27741792D+03,-0.14838052D+03,
     .  0.29882475D+03,-0.52214908D+03, 0.27741792D+03,-0.52214908D+03,
     .  0.83947826D+03, 0.23239257D+03,-0.38529089D+03, 0.12408260D+03,
     . -0.38529089D+03, 0.76297973D+03, 0.77355912D+02, 0.12408260D+03,
     .  0.77355912D+02, 0.45250483D+01, 0.20071985D+01, 0.84566502D+01,
     . -0.13946662D+03, 0.84566502D+01, 0.30141426D+02, 0.42981409D+03,
     . -0.13946662D+03, 0.42981409D+03,-0.38169499D+03, 0.29386551D+01,
     . -0.28181598D+01, 0.34772289D+03,-0.28181598D+01, 0.65796473D+02,
     . -0.56307286D+03, 0.34772289D+03,-0.56307286D+03, 0.17073708D+04,
     .  0.48381794D+03,-0.90877446D+03, 0.73472054D+03,-0.90877446D+03,
     .  0.17788996D+04,-0.12120103D+04, 0.73472054D+03,-0.12120103D+04,
     .  0.11424767D+04, 0.29386551D+01,-0.28181598D+01, 0.34772289D+03,
     . -0.28181598D+01, 0.65796473D+02,-0.56307286D+03, 0.34772289D+03,
     . -0.56307286D+03, 0.17073708D+04, 0.67064037D+01, 0.13924782D+03,
     . -0.40798635D+04, 0.13924782D+03,-0.24980448D+02, 0.93811832D+04,
     . -0.40798635D+04, 0.93811832D+04,- .15883360D+05, 0.25683471D+04,
     . -0.51018797D+04/
      DATA Z42E  /
     .                  0.10895504D+05,-0.51018797D+04, 0.10535742D+05,
     . -0.21028265D+05, 0.10895504D+05,-0.21028265D+05, 0.34858917D+05,
     .  0.48381794D+03,-0.90877446D+03, 0.73472054D+03,-0.90877446D+03,
     .  0.17788996D+04,-0.12120103D+04, 0.73472054D+03,-0.12120103D+04,
     .  0.11424767D+04, 0.25683471D+04,-0.51018797D+04, 0.10895504D+05,
     . -0.51018797D+04, 0.10535742D+05,-0.21028265D+05, 0.10895504D+05,
     . -0.21028265D+05, 0.34858917D+05, 0.58865077D+04,-0.94733690D+04,
     . -0.32398399D+04,-0.94733690D+04, 0.16670105D+05, 0.16281794D+05,
     . -0.32398399D+04, 0.16281794D+05,-0.22873879D+05/
      DATA Z43  /
     . 0.34383385D 00, 0.32342113D 01, 0.91245979D 01, 0.32342113D 01,
     . 0.11183568D 02, 0.26066925D 02, 0.91245979D 01, 0.26066925D 02,
     . 0.33522052D 02,-0.41491152D 00,-0.12042442D 01, 0.62604703D 01,
     .-0.12042442D 01, 0.45759735D 01, 0.19476835D 02, 0.62604703D 01,
     . 0.19476835D 02, 0.38661997D 02,-0.34355512D 00,-0.60749632D 01,
     .-0.17868530D 02,-0.60749632D 01,-0.22398717D 02,-0.28291411D 02,
     .-0.17868530D 02,-0.28291411D 02,-0.85055028D 01,-0.41491152D 00,
     .-0.12042442D 01, 0.62604703D 01,-0.12042442D 01, 0.45759735D 01,
     . 0.19476835D 02, 0.62604703D 01, 0.19476835D 02, 0.38661997D 02,
     . 0.25907009D 01, 0.17458814D 02, 0.40074774D 02, 0.17458814D 02,
     . 0.51235413D 02, 0.14903207D 03, 0.40074774D 02, 0.14903207D 03,
     . 0.21725207D 03,-0.24768358D 01,-0.10184021D 02,-0.87617492D 01,
     .-0.10184021D 02,-0.21583303D 02,-0.55539228D 02,-0.87617492D 01,
     .-0.55539228D 02, 0.23968093D 02,-0.34355512D 00,-0.60749632D 01,
     .-0.17868530D 02,-0.60749632D 01,-0.22398717D 02,-0.28291411D 02,
     .-0.17868530D 02,-0.28291411D 02,-0.85055028D 01,-0.24768358D 01,
     . 260*0.D0 /
      DATA Z43A  /
     .-0.10184021D 02,-0.87617492D 01,-0.10184021D 02,-0.21583303D 02,
     .-0.55539228D 02,-0.87617492D 01,-0.55539228D 02, 0.23968093D 02,
     . 0.96752017D 01, 0.65212312D 02, 0.14099446D 03, 0.65212312D 02,
     . 0.19558324D 03, 0.42547916D 03, 0.14099446D 03, 0.42547916D 03,
     . 0.40570557D 03,-0.60952354D-06,-0.12174444D-05,-0.83573414D-05,
     .-0.12174444D-05,-0.12398959D-05,-0.23758563D-04,-0.83573414D-05,
     .-0.23758563D-04,-0.73949341D-04,-0.97444490D-06,-0.19420486D-05,
     .-0.13328157D-04,-0.19420486D-05,-0.20000152D-05,-0.37308782D-04,
     .-0.13328157D-04,-0.37308782D-04,-0.10311604D-03,-0.46778041D-06,
     .-0.94210554D-06,-0.69502275D-05,-0.94210554D-06,-0.16912818D-05,
     .-0.18596649D-04,-0.69502275D-05,-0.18596649D-04, 0.36716461D-03,
     .-0.97444490D-06,-0.19420486D-05,-0.13328157D-04,-0.19420486D-05,
     .-0.20000152D-05,-0.37308782D-04,-0.13328157D-04,-0.37308782D-04,
     .-0.10311604D-03,-0.44488770D-05,-0.88720117D-05,-0.60699880D-04,
     .-0.88720117D-05,-0.76256692D-05,-0.16045570D-03,-0.60699880D-04,
     .-0.16045570D-03,-0.20027161D-04,-0.26520138D-05,-0.60535967D-05  /
      DATA Z43B  /
     .-0.63180923D-04,-0.60535967D-05,-0.90003014D-05,-0.15258789D-03,
     .-0.63180923D-04,-0.15258789D-03,-0.86975098D-03,-0.46778041D-06,
     .-0.94210554D-06,-0.69502275D-05,-0.94210554D-06,-0.16912818D-05,
     .-0.18596649D-04,-0.69502275D-05,-0.18596649D-04, 0.36716461D-03,
     .-0.26520138D-05,-0.60535967D-05,-0.63180923D-04,-0.60535967D-05,
     .-0.90003014D-05,-0.15258789D-03,-0.63180923D-04,-0.15258789D-03,
     .-0.86975098D-03,-0.11244090D-04,-0.18350780D-04, 0.15711784D-03,
     .-0.18350780D-04,-0.15640259D-03,-0.84838867D-02, 0.15711784D-03,
     .-0.84838867D-02,-0.10449219D 00  /
       DATA Z43C  /
     .         0.10161296D-01, 0.53447256D+01, 0.15974517D+02,
     .  0.53447256D+01, 0.32908926D+02, 0.99962800D+02, 0.15974517D+02,
     .  0.99962800D+02, 0.26134058D+03,-0.58808235D-02,-0.82381841D+00,
     .  0.10000610D+02,-0.82381841D+00, 0.11637011D+02, 0.58248266D+02,
     .  0.10000610D+02, 0.58248266D+02, 0.18066936D+03, 0.28809280D-02 ,
     . -0.72991833D+00,-0.71978257D+01,-0.72991833D+00,-0.94020391D+01,
     .  0.25209192D+00,-0.71978257D+01, 0.25209192D+00, 0.63440151D+02,
     . -0.58808235D-02,-0.82381841D+00, 0.10000610D+02,-0.82381841D+00 ,
     .  0.11637011D+02, 0.58248266D+02, 0.10000610D+02, 0.58248266D+02 ,
     .  0.18066936D+03, 0.27909830D-01, 0.17006707D+02, 0.72568762D+02,
     .  0.17006707D+02, 0.13606368D+03, 0.49932455D+03, 0.72568762D+02 ,
     .  0.49932455D+03, 0.14452106D+04,-0.17758493D-01,-0.49122479D+01,
     .  0.12225961D+02,-0.49122479D+01, 0.10847754D+02, 0.14248695D+03,
     .  0.12225961D+02, 0.14248695D+03, 0.67986060D+03, 0.28809280D-02,
     . -0.72991833D+00,-0.71978257D+01,-0.72991833D+00,-0.94020391D+01,
     .  0.25209192D+00,-0.71978257D+01, 0.25209192D+00, 0.63440151D+02 ,
     . -0.17758493D-01/
      DATA Z43D  /
     .                 -0.49122479D+01, 0.12225961D+02,-0.49122479D+01 ,
     .  0.10847754D+02, 0.14248695D+03, 0.12225961D+02, 0.14248695D+03 ,
     .  0.67986060D+03, 0.75124834D-01, 0.46104200D+02, 0.18572359D+03 ,
     .  0.46104200D+02, 0.35607133D+03, 0.12494709D+04, 0.18572359D+03,
     .  0.12494709D+04, 0.36860436D+04, 0.13727514D-01, 0.13700481D+02,
     .  0.87452550D+02, 0.13700481D+02, 0.17220296D+03, 0.78023942D+03,
     .  0.87452550D+02, 0.78023942D+03, 0.29368787D+04, 0.13838172D-01,
     .  0.13810921D+02, 0.88157508D+02, 0.13810921D+02, 0.17359109D+03 ,
     .  0.78652896D+03, 0.88157508D+02, 0.78652896D+03, 0.29605530D+04,
     .  0.13776900D-01, 0.13749770D+02, 0.87767168D+02, 0.13749770D+02,
     .  0.17282247D+03, 0.78304639D+03, 0.87767168D+02, 0.78304639D+03 ,
     .  0.29474443D+04, 0.13838172D-01, 0.13810921D+02, 0.88157508D+02,
     .  0.13810921D+02, 0.17359109D+03, 0.78652896D+03, 0.88157508D+02,
     .  0.78652896D+03, 0.29605530D+04, 0.98816039D-01, 0.98621446D+02,
     .  0.62951782D+03, 0.98621446D+02, 0.12395846D+04, 0.56164699D+04,
     .  0.62951782D+03, 0.56164699D+04, 0.21140807D+05, 0.96533229D-01,
     .  0.96343132D+02/
      DATA Z43E  /
     .                  0.61497494D+03, 0.96343132D+02, 0.12109482D+04,
     .  0.54867204D+04, 0.61497494D+03, 0.54867204D+04, 0.20652420D+05,
     .  0.13776900D-01, 0.13749770D+02, 0.87767168D+02, 0.13749770D+02 ,
     .  0.17282247D+03, 0.78304639D+03, 0.87767168D+02, 0.78304639D+03,
     .  0.29474443D+04, 0.96533229D-01, 0.96343132D+02, 0.61497494D+03 ,
     .  0.96343132D+02, 0.12109482D+04, 0.54867204D+04, 0.61497494D+03,
     .  0.54867204D+04, 0.20652420D+05, 0.33046556D+00, 0.32981480D+03,
     .  0.21052651D+04, 0.32981480D+03, 0.41454810D+04, 0.18782881D+05,
     .  0.21052651D+04, 0.18782881D+05, 0.70700152D+05/
C
      DATA ZK21  /
     . 0.16000000D 01,-0.95438602D 00, 0.55061993D 00,-0.95438602D 00,
     . 0.73391690D 02,-0.48957854D 02, 0.55061993D 00,-0.48957854D 02,
     . 0.62569849D 03,
     .         0.74785853D-04, 0.42566424D-01, 0.40002572D-01,
     .  0.42566424D-01, 0.42973417D+02, 0.12008994D+03, 0.40002572D-01,
     .  0.12008994D+03, 0.77815617D+03/
C
      DATA ZK22 / 18*0.D0 /
C
      DATA ZK23  /
     . 0.16000000D 01,-0.95438602D 00, 0.55061993D 00,-0.95438602D 00,
     . 0.73391690D 02,-0.48957854D 02, 0.55061993D 00,-0.48957854D 02,
     . 0.62569849D 03,
     .         0.74785853D-04, 0.42566424D-01, 0.40002572D-01,
     .  0.42566424D-01, 0.42973417D+02, 0.12008994D+03, 0.40002572D-01,
     .  0.12008994D+03, 0.77815617D+03/
C
      DATA ZK31 / 54*0.D0 /
C
      DATA ZK32 / 54*0.D0 /
C
      DATA ZK33 / 54*0.D0 /
C
      DATA ZK34 / 54*0.D0 /
C
      DATA ZK35 / 54*0.D0 /
C
      DATA ZK36 / 54*0.D0 /
C
      DATA ZK41  /
     . 0.11636364D 01, 0.27031483D 01,-0.21400422D 01, 0.79065272D 01,
     . 0.58475040D 02, 0.44162401D 02,-0.47434733D 01, 0.88696440D 02,
     . 0.45990345D 03,-0.25002305D 01, 0.78354586D 01, 0.18972053D 02,
     . 0.32793896D 01, 0.38917215D 02, 0.29749167D 03, 0.53809092D 02,
     . 0.23138523D 03, 0.45390968D 03, 0.46338889D 00,-0.25561985D 02,
     . 0.25238882D 02,-0.35258985D 02,-0.11164846D 03, 0.14801671D 02,
     . 0.24397152D 01, 0.23550830D 02, 0.16978424D 03, 0.27031483D 01,
     . 0.32793896D 01, 0.92750536D 01, 0.58475040D 02, 0.74640667D 02,
     . 0.12602017D 03, 0.88696440D 02, 0.53516031D 03, 0.47750892D 03,
     . 0.78354586D 01, 0.31937635D 01,-0.62834136D 01, 0.38917215D 02,
     . 0.41955559D 03, 0.19123781D 03, 0.23138523D 03, 0.64445608D 03,
     . 0.35290058D 04,-0.25561985D 02, 0.59823029D 02,-0.87976096D 01,
     .-0.11164846D 03,-0.26198038D 03, 0.12050099D 04, 0.23550830D 02,
     . 0.13649770D 03,-0.30794357D 02,-0.21400422D 01, 0.92750536D 01,
     . 0.24397152D 01, 0.44162401D 02, 0.12602017D 03, 0.47150105D 02,
     . 0.45990345D 03, 0.47750892D 03, 0.33215353D 03, 0.18972053D 02,
     . 98*0.D0 /
      DATA ZK41A  /
     .-0.62834136D 01,-0.48467398D-01, 0.29749167D 03, 0.19123781D 03,
     . 0.13649744D 03, 0.45390968D 03, 0.35290058D 04, 0.41244807D 03,
     . 0.25238882D 02,-0.87976096D 01, 0.74148365D 01, 0.14801671D 02,
     . 0.12050099D 04,-0.47404022D 03, 0.16978424D 03,-0.30794357D 02,
     . 0.10122621D 05/
       DATA ZK41B  /
     .         0.14909318D-03, 0.42660755D-01, 0.40898424D-01,
     .  0.85334015D-01, 0.43274682D+02, 0.12130015D+03, 0.81720733D-01 ,
     .  0.12168614D+03, 0.78465047D+03,-0.12506089D-04, 0.72480663D-01,
     .  0.41584179D+00, 0.14434438D+00, 0.12767788D+03, 0.64675017D+03,
     .  0.83153513D+00, 0.64809322D+03, 0.35060193D+04, 0.76115052D-04,
     .  0.29851800D-01, 0.52112671D+00, 0.59555148D-01, 0.10016672D+03,
     .  0.95550312D+03, 0.10403738D+01, 0.95716045D+03, 0.59491878D+04,
     .  0.42660755D-01, 0.14434438D+00, 0.44554514D+00, 0.43274682D+02,
     .  0.25464271D+03, 0.74615456D+03, 0.12168614D+03, 0.12927380D+04,
     .  0.44575201D+04, 0.72480663D-01, 0.71305313D+00, 0.21053750D+01,
     .  0.12767788D+03, 0.11367564D+04, 0.38436839D+04, 0.64809322D+03,
     .  0.61441734D+04, 0.23283898D+05, 0.29851800D-01, 0.76232677D+00,
     .  0.40023749D+01, 0.10016672D+03, 0.15431944D+04, 0.71304116D+04,
     .  0.95716045D+03, 0.10394960D+05, 0.43932037D+05, 0.40898424D-01,
     .  0.44554514D+00, 0.10403738D+01, 0.12130015D+03, 0.74615456D+03,
     .  0.19086612D+04, 0.78465047D+03, 0.44575201D+04, 0.11886752D+05,
     .  0.41584179D+00/
       DATA ZK41C  /
     .                  0.21053750D+01, 0.56597069D+01, 0.64675017D+03,
     .  0.38436839D+04, 0.10394960D+05, 0.35060193D+04, 0.23283898D+05,
     .  0.65841504D+05, 0.52112671D+00, 0.40023749D+01, 0.11623520D+02,
     .  0.95550312D+03, 0.71304116D+04, 0.22022570D+05, 0.59491878D+04,
     .  0.43932037D+05, 0.14058549D+06/
C
      DATA ZK42 / 162*0.D0 /
C
      DATA ZK43  /
     . 0.11636364D 01, 0.79065272D 01,-0.47434733D 01,-0.25002305D 01,
     . 0.32793896D 01, 0.53809092D 02, 0.46338889D 00,-0.35258985D 02,
     . 0.24397152D 01, 0.27031483D 01, 0.58475040D 02, 0.88696440D 02,
     . 0.78354586D 01, 0.38917215D 02, 0.23138523D 03,-0.25561985D 02,
     .-0.11164846D 03, 0.23550799D 02,-0.21400422D 01, 0.44162402D 02,
     . 0.45990345D 03, 0.18972053D 02, 0.29749167D 03, 0.45390966D 03,
     . 0.25238882D 02, 0.14801668D 02, 0.16978398D 03, 0.27031483D 01,
     . 0.58475040D 02, 0.88696440D 02, 0.78354586D 01, 0.38917215D 02,
     . 0.23138523D 03,-0.25561985D 02,-0.11164846D 03, 0.23550799D 02,
     . 0.32793896D 01, 0.74640668D 02, 0.53516031D 03, 0.31937634D 01,
     . 0.41955559D 03, 0.64445606D 03, 0.59823028D 02,-0.26198040D 03,
     . 0.13649694D 03, 0.92750536D 01, 0.12602018D 03, 0.47750896D 03,
     .-0.62834163D 01, 0.19123785D 03, 0.35290058D 04,-0.87975924D 01,
     . 0.12050096D 04,-0.30802185D 02,-0.21400422D 01, 0.44162402D 02,
     . 0.45990345D 03, 0.18972053D 02, 0.29749167D 03, 0.45390966D 03,
     . 0.25238882D 02, 0.14801668D 02, 0.16978398D 03, 0.92750536D 01,
     . 98*0.D0 /
      DATA ZK43A  /
     . 0.12602018D 03, 0.47750896D 03,-0.62834163D 01, 0.19123785D 03,
     . 0.35290058D 04,-0.87975924D 01, 0.12050096D 04,-0.30802185D 02,
     . 0.24397152D 01, 0.47150135D 02, 0.33215372D 03,-0.48466444D-01,
     . 0.13649743D 03, 0.41245613D 03, 0.74150501D 01,-0.47404388D 03,
     . 0.10122683D 05/
       DATA ZK43B  /
     .         0.14909318D-03, 0.85334015D-01, 0.81720733D-01,
     . -0.12506089D-04, 0.14434438D+00, 0.83153513D+00, 0.76115052D-04,
     .  0.59555148D-01, 0.10403738D+01, 0.42660755D-01, 0.43274682D+02,
     .  0.12168614D+03, 0.72480663D-01, 0.12767788D+03, 0.64809322D+03,
     .  0.29851800D-01, 0.10016672D+03, 0.95716045D+03, 0.40898424D-01,
     .  0.12130015D+03, 0.78465047D+03, 0.41584179D+00, 0.64675017D+03,
     .  0.35060193D+04, 0.52112671D+00, 0.95550312D+03, 0.59491878D+04,
     .  0.42660755D-01, 0.43274682D+02, 0.12168614D+03, 0.72480663D-01,
     .  0.12767788D+03, 0.64809322D+03, 0.29851800D-01, 0.10016672D+03,
     .  0.95716045D+03, 0.14434438D+00, 0.25464271D+03, 0.12927380D+04,
     .  0.71305313D+00, 0.11367564D+04, 0.61441734D+04, 0.76232677D+00 ,
     .  0.15431944D+04, 0.10394960D+05, 0.44554514D+00, 0.74615456D+03,
     .  0.44575201D+04, 0.21053750D+01, 0.38436839D+04, 0.23283898D+05,
     .  0.40023749D+01, 0.71304116D+04, 0.43932037D+05, 0.40898424D-01,
     .  0.12130015D+03, 0.78465047D+03, 0.41584179D+00, 0.64675017D+03,
     .  0.35060193D+04, 0.52112671D+00, 0.95550312D+03, 0.59491878D+04,
     .  0.44554514D+00/
      DATA ZK43C  /
     .                  0.74615456D+03, 0.44575201D+04, 0.21053750D+01,
     .  0.38436839D+04, 0.23283898D+05, 0.40023749D+01, 0.71304116D+04,
     .  0.43932037D+05, 0.10403738D+01, 0.19086612D+04, 0.11886752D+05,
     .  0.56597069D+01, 0.10394960D+05, 0.65841504D+05, 0.11623520D+02,
     .  0.22022570D+05, 0.14058550D+06/
C
      DATA ZK44 / 162*0.D0 /
C
      DATA ZK45 / 162*0.D0 /
C
      DATA ZK46  /
     . 0.11636364D 01, 0.27031483D 01,-0.21400422D 01, 0.79065272D 01,
     . 0.58475040D 02, 0.44162402D 02,-0.47434733D 01, 0.88696440D 02,
     . 0.45990345D 03,-0.25002305D 01, 0.78354586D 01, 0.18972053D 02,
     . 0.32793896D 01, 0.38917215D 02, 0.29749167D 03, 0.53809092D 02,
     . 0.23138523D 03, 0.45390966D 03, 0.46338889D 00,-0.25561985D 02,
     . 0.25238882D 02,-0.35258985D 02,-0.11164846D 03, 0.14801668D 02,
     . 0.24397152D 01, 0.23550830D 02, 0.16978398D 03, 0.27031483D 01,
     . 0.32793896D 01, 0.92750536D 01, 0.58475040D 02, 0.74640668D 02,
     . 0.12602018D 03, 0.88696440D 02, 0.53516031D 03, 0.47750896D 03,
     . 0.78354586D 01, 0.31937634D 01,-0.62834163D 01, 0.38917215D 02,
     . 0.41955559D 03, 0.19123785D 03, 0.23138523D 03, 0.64445606D 03,
     . 0.35290058D 04,-0.25561985D 02, 0.59823028D 02,-0.87975924D 01,
     .-0.11164846D 03,-0.26198040D 03, 0.12050096D 04, 0.23550830D 02,
     . 0.13649743D 03,-0.30802185D 02,-0.21400422D 01, 0.92750536D 01,
     . 0.24397152D 01, 0.44162402D 02, 0.12602018D 03, 0.47150135D 02,
     . 0.45990345D 03, 0.47750896D 03, 0.33215372D 03, 0.18972053D 02,
     . 98*0.D0 /
      DATA ZK46A  /
     .-0.62834163D 01,-0.48466444D-01, 0.29749167D 03, 0.19123785D 03,
     . 0.13649694D 03, 0.45390966D 03, 0.35290058D 04, 0.41245613D 03,
     . 0.25238882D 02,-0.87975924D 01, 0.74155384D 01, 0.14801668D 02,
     . 0.12050096D 04,-0.47404388D 03, 0.16978398D 03,-0.30802185D 02,
     . 0.10122683D 05/
      DATA ZK46B  /
     .         0.14909318D-03, 0.42660755D-01, 0.40898424D-01,
     .  0.85334015D-01, 0.43274682D+02, 0.12130015D+03, 0.81720733D-01,
     .  0.12168614D+03, 0.78465047D+03,-0.12506089D-04, 0.72480663D-01,
     .  0.41584179D+00, 0.14434438D+00, 0.12767788D+03, 0.64675017D+03,
     .  0.83153513D+00, 0.64809322D+03, 0.35060193D+04, 0.76115052D-04,
     .  0.29851800D-01, 0.52112671D+00, 0.59555148D-01, 0.10016672D+03,
     .  0.95550312D+03, 0.10403738D+01, 0.95716045D+03, 0.59491878D+04 ,
     .  0.42660755D-01, 0.14434438D+00, 0.44554514D+00, 0.43274682D+02,
     .  0.25464271D+03, 0.74615456D+03, 0.12168614D+03, 0.12927380D+04,
     .  0.44575201D+04, 0.72480663D-01, 0.71305313D+00, 0.21053750D+01,
     .  0.12767788D+03, 0.11367564D+04, 0.38436839D+04, 0.64809322D+03,
     .  0.61441734D+04, 0.23283898D+05, 0.29851800D-01, 0.76232677D+00,
     .  0.40023749D+01, 0.10016672D+03, 0.15431944D+04, 0.71304116D+04,
     .  0.95716045D+03, 0.10394960D+05, 0.43932037D+05, 0.40898424D-01,
     .  0.44554514D+00, 0.10403738D+01, 0.12130015D+03, 0.74615456D+03,
     .  0.19086612D+04, 0.78465047D+03, 0.44575201D+04, 0.11886752D+05,
     .  0.41584179D+00/
      DATA ZK46C  /
     .                  0.21053750D+01, 0.56597069D+01, 0.64675017D+03 ,
     .  0.38436839D+04, 0.10394960D+05, 0.35060193D+04, 0.23283898D+05,
     .  0.65841504D+05, 0.52112671D+00, 0.40023749D+01, 0.11623520D+02,
     .  0.95550312D+03, 0.71304116D+04, 0.22022570D+05, 0.59491878D+04,
     .  0.43932037D+05, 0.14058550D+06/
C
      DATA ZK47 / 162*0.D0 /
C
      DATA ZK48  /
     . 0.11636364D 01, 0.27031483D 01,-0.21400422D 01, 0.79065272D 01,
     . 0.58475040D 02, 0.44162401D 02,-0.47434733D 01, 0.88696440D 02,
     . 0.45990345D 03,-0.25002305D 01, 0.78354586D 01, 0.18972053D 02,
     . 0.32793896D 01, 0.38917215D 02, 0.29749167D 03, 0.53809092D 02,
     . 0.23138523D 03, 0.45390968D 03, 0.46338889D 00,-0.25561985D 02,
     . 0.25238882D 02,-0.35258985D 02,-0.11164846D 03, 0.14801671D 02,
     . 0.24397152D 01, 0.23550830D 02, 0.16978424D 03, 0.27031483D 01,
     . 0.32793896D 01, 0.92750536D 01, 0.58475040D 02, 0.74640667D 02,
     . 0.12602017D 03, 0.88696440D 02, 0.53516031D 03, 0.47750892D 03,
     . 0.78354586D 01, 0.31937635D 01,-0.62834136D 01, 0.38917215D 02,
     . 0.41955559D 03, 0.19123781D 03, 0.23138523D 03, 0.64445608D 03,
     . 0.35290058D 04,-0.25561985D 02, 0.59823029D 02,-0.87976096D 01,
     .-0.11164846D 03,-0.26198038D 03, 0.12050099D 04, 0.23550830D 02,
     . 0.13649770D 03,-0.30794357D 02,-0.21400422D 01, 0.92750536D 01,
     . 0.24397152D 01, 0.44162401D 02, 0.12602017D 03, 0.47150105D 02,
     . 0.45990345D 03, 0.47750892D 03, 0.33215353D 03, 0.18972053D 02,
     . 98*0.D0 /
      DATA ZK48A  /
     .-0.62834136D 01,-0.48467398D-01, 0.29749167D 03, 0.19123781D 03,
     . 0.13649744D 03, 0.45390968D 03, 0.35290058D 04, 0.41244807D 03,
     . 0.25238882D 02,-0.87976096D 01, 0.74148365D 01, 0.14801671D 02,
     . 0.12050099D 04,-0.47404022D 03, 0.16978424D 03,-0.30794357D 02,
     . 0.10122621D 05/
      DATA ZK48B  /
     .         0.14909318D-03, 0.42660755D-01, 0.40898424D-01,
     .  0.85334015D-01, 0.43274682D+02, 0.12130015D+03, 0.81720733D-01,
     .  0.12168614D+03, 0.78465047D+03,-0.12506089D-04, 0.72480663D-01,
     .  0.41584179D+00, 0.14434438D+00, 0.12767788D+03, 0.64675017D+03,
     .  0.83153513D+00, 0.64809322D+03, 0.35060193D+04, 0.76115052D-04,
     .  0.29851800D-01, 0.52112671D+00, 0.59555148D-01, 0.10016672D+03,
     .  0.95550312D+03, 0.10403738D+01, 0.95716045D+03, 0.59491878D+04,
     .  0.42660755D-01, 0.14434438D+00, 0.44554514D+00, 0.43274682D+02,
     .  0.25464271D+03, 0.74615456D+03, 0.12168614D+03, 0.12927380D+04,
     .  0.44575201D+04, 0.72480663D-01, 0.71305313D+00, 0.21053750D+01,
     .  0.12767788D+03, 0.11367564D+04, 0.38436839D+04, 0.64809322D+03,
     .  0.61441734D+04, 0.23283898D+05, 0.29851800D-01, 0.76232677D+00,
     .  0.40023749D+01, 0.10016672D+03, 0.15431944D+04, 0.71304116D+04,
     .  0.95716045D+03, 0.10394960D+05, 0.43932037D+05, 0.40898424D-01,
     .  0.44554514D+00, 0.10403738D+01, 0.12130015D+03, 0.74615456D+03,
     .  0.19086612D+04, 0.78465047D+03, 0.44575201D+04, 0.11886752D+05,
     .  0.41584179D+00/
      DATA ZK48C  /
     .                  0.21053750D+01, 0.56597069D+01, 0.64675017D+03,
     .  0.38436839D+04, 0.10394960D+05, 0.35060193D+04, 0.23283898D+05,
     .  0.65841504D+05, 0.52112671D+00, 0.40023749D+01, 0.11623520D+02,
     .  0.95550312D+03, 0.71304116D+04, 0.22022570D+05, 0.59491878D+04,
     .  0.43932037D+05, 0.14058549D+06/
C
      DATA ZS01 / 2*1.0D0 /
C
      DATA ZS02 / 2*0.5D0 /
C
      DATA ZS11 / 6*1.0D0 /
C
      DATA ZS12  /
     . 0.4D0,-0.23859649D0, 0.13765510D0,
     .    0.49901021D+00,-0.19830055D+00, 0.64089188D-01/
C
      DATA ZS13  /
     . 0.28888889D0,-0.45614034D-1, 0.14805957D-1,
     .    0.33285246D+00,-0.37713939D-01,-0.39265958D-01 /
C
      DATA ZS21  /
     . 0.11428571D1, 0.18270677D1, 0.87728422D0, 0.18270677D1,
     . 0.83370707D1, 0.50020959D1, 0.87728422D0, 0.50020959D1,
     . 0.20255012D2,
     .         0.10000119D+01, 0.10080730D+01, 0.10036095D+01,
     .  0.10080730D+01, 0.71984785D+01, 0.70321821D+01, 0.10036095D+01,
     .  0.70321821D+01, 0.24073514D+02/
C
      DATA ZS22  /
     . 0.5D0, 0.12095517D1, 0.94455821D0,-0.20955166D0, 0.5D0,
     . 0.16567674D1, 0.55441789D-1,-0.65676735D0,   0.5D0,
     .         0.50000000D+00, 0.11976894D+01, 0.93676483D+00,
     . -0.19768936D+00, 0.50000005D+00, 0.15269154D+01, 0.63228666D-01,
     . -0.52692186D+00, 0.49999350D+00/
C
      DATA ZS23  /
     . 0.4D0, 0.11617934D0,-0.32885325D0, 0.11617934D0, 0.25510619D1,
     .-0.73983104D0,-0.32885325D0,-0.73983104D0, 0.79633924D1,
     .         0.49802703D+00,-0.19554199D+00, 0.61560054D-01,
     . -0.19554199D+00, 0.14776115D+01,-0.67399252D+00, 0.61560054D-01,
     . -0.67399252D+00, 0.39786671D+01/
C
      DATA ZS24  /
     . 0.74285714D0, 0.17108883D1, 0.12061375D1, 0.17108883D1,
     .0.57860089D1,0.57419269D1,0.12061375D1,0.57419269D1,
     .0.12291620D2,
     .         0.50198487D+00, 0.12036150D+01, 0.94204947D+00,
     .  0.12036150D+01, 0.57208671D+01, 0.77061746D+01, 0.94204947D+00,
     .  0.77061746D+01, 0.20094847D+02/
C
      DATA ZS31  /
     . 0.50909091D 00, 0.13304507D 01, 0.11476503D 01, 0.20699391D 00,
     . 0.13040264D 01, 0.23748684D 01,-0.44812494D 00,-0.11995772D 01,
     . 0.40619992D 00, 0.20699391D 00, 0.13040264D 01, 0.23748684D 01,
     . 0.31432590D 01, 0.74471338D 01, 0.74584519D 01,-0.65592087D 00,
     . 0.11013734D 01, 0.36525087D 01,-0.44812494D 00,-0.11995772D 01,
     . 0.40619992D 00,-0.65592087D 00, 0.11013734D 01, 0.36525087D 01,
     . 0.96170638D 01, 0.20525381D 02, 0.15314541D 02,
     .         0.49901683D+00, 0.11970897D+01, 0.93763632D+00,
     . -0.19492601D+00, 0.50653875D+00, 0.15350404D+01, 0.60698796D-01,
     . -0.52918654D+00, 0.50220816D+00,-0.19492601D+00, 0.50653875D+00,
     .  0.15350404D+01, 0.14815891D+01, 0.49064877D+01, 0.75017775D+01,
     . -0.67328281D+00, 0.52549336D+00, 0.48155918D+01, 0.60698796D-01,
     . -0.52918654D+00, 0.50220816D+00,-0.67328281D+00, 0.52549336D+00,
     .  0.48155918D+01, 0.39895255D+01, 0.13026205D+02, 0.17905399D+02/
C
      DATA ZS32  /
     . 0.63376623D 00, 0.16200737D 01, 0.13254092D 01, 0.16200737D 01,
     . 0.51938118D 01, 0.56580167D 01, 0.13254092D 01, 0.56580167D 01,
     . 0.10637949D 02,-0.18759357D 00, 0.52304124D 00, 0.20768614D 01,
     . 0.52304124D 00, 0.88993692D 00, 0.39007224D 01, 0.20768614D 01,
     . 0.39007224D 01,-0.27036859D 00,-0.47932068D-02,-0.54780076D 00,
     . 0.47108430D 00,-0.54780076D 00, 0.87861884D 00, 0.13495871D 01,
     . 0.47108430D 00, 0.13495871D 01, 0.49404709D 01,
     .         0.50099507D+00, 0.12029990D+01, 0.94291072D+00,
     .  0.12029990D+01, 0.57168895D+01, 0.77054649D+01, 0.94291072D+00,
     .  0.77054649D+01, 0.20083988D+02,-0.19707779D+00, 0.50153432D+00,
     .  0.15327961D+01, 0.50153432D+00, 0.22919912D+01, 0.65066891D+01,
     .  0.15327961D+01, 0.65066891D+01, 0.11047310D+02, 0.62369075D-01,
     . -0.52697390D+00, 0.50139483D+00,-0.52697390D+00,-0.30334576D+00,
     .  0.22165446D+01, 0.50139483D+00, 0.22165446D+01, 0.61679583D+01/
C
      DATA ZS41  /
     . 0.65306122D 00, 0.17658769D 01, 0.15895182D 01, 0.17658769D 01,
     . 0.55683283D 01, 0.63345454D 01, 0.15895182D 01, 0.63345454D 01,
     . 0.11190531D 02, 0.32220039D 00, 0.16690881D 01, 0.30494787D 01,
     . 0.16690881D 01, 0.50587567D 01, 0.81896220D 01, 0.30494787D 01,
     . 0.81896220D 01, 0.87574493D 01,-0.58690763D 00,-0.14466210D 01,
     . 0.38481381D 00,-0.14466210D 01,-0.29385513D 01,-0.53806631D 00,
     . 0.38481381D 00,-0.53806631D 00,-0.33391118D 01, 0.32220039D 00,
     . 0.16690881D 01, 0.30494787D 01, 0.16690881D 01, 0.50587567D 01,
     . 0.81896220D 01, 0.30494787D 01, 0.81896220D 01, 0.87574493D 01,
     . 0.39597525D 01, 0.10173636D 02, 0.10252532D 02, 0.10173636D 02,
     . 0.34753374D 02, 0.41114760D 02, 0.10252532D 02, 0.41114760D 02,
     . 0.74143418D 02,-0.61786443D 00, 0.94954551D 00, 0.49263270D 01,
     . 0.94954551D 00, 0.58806852D 00, 0.12510485D 02, 0.49263270D 01,
     . 0.12510485D 02, 0.58547207D 01,-0.58690763D 00,-0.14466210D 01,
     . 0.38481381D 00,-0.14466210D 01,-0.29385513D 01,-0.53806631D 00,
     . 0.38481381D 00,-0.53806631D 00,-0.33391118D 01,-0.61786443D 00,
     . 98*0.D0 /
      DATA ZS41A  /
     . 0.94954551D 00, 0.49263270D 01, 0.94954551D 00, 0.58806852D 00,
     . 0.12510485D 02, 0.49263270D 01, 0.12510485D 02, 0.58547207D 01,
     . 0.11958054D 02, 0.28249828D 02, 0.21108528D 02, 0.28249828D 02,
     . 0.94724072D 02, 0.95463086D 02, 0.21108528D 02, 0.95463086D 02,
     . 0.20513243D 03/
      DATA ZS41B  /
     .         0.50001190D+00, 0.12023946D+01, 0.94378301D+00 ,
     .  0.12023946D+01, 0.57129760D+01, 0.77048401D+01, 0.94378301D+00,
     .  0.77048401D+01, 0.20073361D+02,-0.19430962D+00, 0.50810561D+00,
     .  0.15409644D+01, 0.50810561D+00, 0.23270880D+01, 0.65611423D+01,
     .  0.15409644D+01, 0.65611423D+01, 0.11182472D+02, 0.59838450D-01,
     . -0.52925270D+00, 0.50361603D+00,-0.52925270D+00,-0.31492021D+00,
     .  0.22204551D+01, 0.50361603D+00, 0.22204551D+01, 0.61604030D+01,
     . -0.19430962D+00, 0.50810561D+00, 0.15409644D+01, 0.50810561D+00,
     .  0.23270880D+01, 0.65611423D+01, 0.15409644D+01, 0.65611423D+01,
     .  0.11182472D+02, 0.14855882D+01, 0.49295041D+01, 0.75393818D+01,
     .  0.49295041D+01, 0.25909047D+02, 0.45787887D+02, 0.75393818D+01,
     .  0.45787887D+02, 0.10662782D+03,-0.67257427D+00, 0.52781079D+00,
     .  0.48371099D+01, 0.52781079D+00, 0.48331252D+01, 0.24725793D+02,
     .  0.48371099D+01, 0.24725793D+02, 0.52519910D+02, 0.59838450D-01,
     . -0.52925270D+00, 0.50361603D+00,-0.52925270D+00,-0.31492021D+00,
     .  0.22204551D+01, 0.50361603D+00, 0.22204551D+01, 0.61604030D+01,
     . -0.67257427D+00/
      DATA ZS41C  /
     .                  0.52781079D+00, 0.48371099D+01, 0.52781079D+00,
     .  0.48331252D+01, 0.24725793D+02, 0.48371099D+01, 0.24725793D+02,
     .  0.52519910D+02, 0.40004390D+01, 0.13085388D+02, 0.18000005D+02,
     .  0.13085388D+02, 0.66664852D+02, 0.11676942D+03, 0.18000005D+02,
     .  0.11676942D+03, 0.28976706D+03/
C
      DATA ZT21  /
     . 0.44444444D 00,-0.35200004D 00, 0.22407679D 00, 0.17280000D 01,
     . 0.23355789D 01,-0.61304099D 01, 0.19759632D 01, 0.13598967D 02,
     . 0.59706120D 01, 45*0.0D0,
     .         0.59337615D-02,-0.24132831D-02,-0.37379749D-02,
     . -0.41139799D+01,-0.91577375D+01,-0.61344443D+01,-0.71541229D+01,
     . -0.49929195D+02,-0.69589334D+02, 0.0           , 0.0           ,
     . 43*0.0D0/
C
      DATA ZT22  /
     . 27*0.0D0, 0.44444444D 00,
     .-0.11918598D 01, 0.75871616D 00, 0.58509474D 01, 0.79081883D 01,
     .-0.20757353D 02, 0.66905420D 01, 0.46045625D 02, 0.20216283D 02,
     . 18*0.0D0,
     .27*0.0D0,
     . -0.59337615D-02,-0.24132831D-02,-0.37379749D-02,-0.41139799D+01,
     . -0.91577375D+01,-0.61344443D+01,-0.71541229D+01,-0.49929195D+02,
     . -0.69589334D+02, 0.0           , 0.0           , 0.0            ,
     .15*0.0D0/
C
      DATA STAO  /
     . 3*0.0D0,-0.66666666D 00,-0.22631600D 01,-0.36184900D 01, 6*0.0D0,
     .  0.59387586D-02, 0.41066052D+01, 0.71056788D+01,3*0.0D0/
C
      DATA STA1 / 18*1.D0 /
C
      DATA STA2 / 18*1.D0 /
C
      DATA STBO  /
     . 6*0.0D0,-0.66666666D 00,-0.22631600D 01,-0.36184900D 01, 3*0.0D0,
     .  0.0           , 0.0           , 0.0 ,           0.59387586D-02,
     .  0.41066052D+01, 0.71056788D+01/
C
      DATA STB1 /18*1.D0 /
C
      DATA STB2 /18*1.D0 /
C
      DATA Z2S01 / 2*1.0D0 /
C
      DATA Z2S12 / 6*1.0D0 /
C
      DATA Z2S23  /
     . 0.11428571D1, 0.18270677D1, 0.87728422D0, 0.18270677D1,
     . 0.83370707D1, 0.50020959D1, 0.87728422D0, 0.50020959D1,
     . 0.20255012D2,
     .         0.10000119D+01, 0.10080730D+01, 0.10036095D+01,
     .  0.10080730D+01, 0.71984785D+01, 0.70321821D+01, 0.10036095D+01,
     .  0.70321821D+01, 0.24073514D+02/
C
C
      END
